home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / cnet / CDFront.lha / CDFront.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-01-04  |  2.7 KB  |  103 lines
  1. /* CDFront.Rexx.                   */
  2. /* --------------                  */
  3. /* This is rexx-door for CNet      */
  4. /* that can be used as a front-end */
  5. /* for CDAxe or other CD-ROM doors */
  6. /* It provides the user with a menu*/
  7. /* from which he/she can choose a  */
  8. /* CD to access.                   */
  9.  
  10. /* Version : 1.0                   */
  11. /* Date    : 3-jan-1998            */
  12. /* Author  : Leo Poleij            */
  13. /* email: lmpoleij@cybercomm.nl    */
  14. /* USS Amiga BBS: ++31-318-430201  */
  15.  
  16. VStr='1.0'  /* version string */
  17. /* Open rexxsupport-library */
  18. if ~show('L','rexxsupport.library') then 
  19.     call addlib('rexxsupport.library',0,-30,0)
  20.  
  21. options results
  22.  
  23. /* Available CD-ROMs with descriptions */
  24. /* Edit this to reflect your situation */
  25.  
  26. name.1  = "Aminet4:aminet"  ; desc.1  = "Aminet 4"
  27. name.2  = "Aminet5:aminet"  ; desc.2  = "Aminet 5"
  28. name.3  = "Aminet6:aminet"  ; desc.3  = "Aminet 6"  
  29. name.4  = "Aminet7:aminet"  ; desc.4  = "Aminet 7"
  30. name.5  = "Aminet9:aminet"  ; desc.5  = "Aminet 9"
  31. name.6  = "Aminet10:aminet" ; desc.6  = "Aminet 10"
  32. name.7  = "Aminet11:aminet" ; desc.7  = "Aminet 11"
  33. name.8  = "Aminet12:aminet" ; desc.8  = "Aminet 12"
  34. name.9  = "Aminet13:aminet" ; desc.9  = "Aminet 13"
  35. name.10 = "Aminet14:aminet" ; desc.10 = "Aminet 14"
  36. name.11 = "Aminet20:aminet" ; desc.11 = "Aminet 20"
  37. name.12 = "tfb3_0:"         ; desc.12 = "Star Trek CD-ROM"
  38. name.13 = "anonymous:"      ; desc.13 = "Fabulous females 2"
  39.  
  40. ncd=13    /* variable to hold the number of CD's */
  41.  
  42. /* End of list */
  43.  
  44. /* check availability of CD-ROMs */
  45. DO i=1 to ncd 
  46.     if showlist('V',upper(left(name.i,index(name.i,":")-1)))="1" THEN 
  47.        avail.i='c5}*c3}' 
  48.     ELSE
  49.        avail.i=' '
  50. end 
  51.  
  52. List:
  53. /* Put the list on screen */
  54.  
  55. CLS
  56. transmit CENTER('c7}CD-ROM frontend v'VStr', by Leo Poleij. (C)1998 BoPoSoft',79)
  57. newline
  58. transmit CENTER('c1}List of available CD-ROMs (* = online now!)',79)
  59. transmit CENTER('Ask the sysop if the CD-ROM you want is not online',79)
  60. newline
  61. duallist=ncd%2
  62. if ncd//2=1 then duallist=duallist+1
  63.  
  64. sendstring 'c3}'
  65. do i=1 TO duallist
  66.     j=i+duallist
  67.     if i<10 THEN cn1=10 
  68.       else cn1=9
  69.     if j<10 THEN cn2=40 
  70.        else cn2=39
  71.     column1=copies(' ',cn1)i'. 'avail.i' 'desc.i
  72.     if j<=ncd THEN
  73.         column2=copies(' ',cn2-length(column1))j'. 'avail.j' 'desc.j
  74.     else
  75.         column2=''
  76.     transmit column1||column2
  77. end
  78.  
  79. /* Get some input */
  80.  
  81. newline
  82. sendstring 'Your choice (Enter to quit) : '
  83. receive
  84. choice=result
  85.  
  86. /* Process input */
  87. if choice = '' THEN signal endofscript
  88.  
  89. if choice < 1 | choice > ncd THEN signal List
  90.  
  91. if avail.choice = '*' THEN 
  92.     transmit 'Accessing 'desc.choice'. Please wait...'
  93.     transmit '#2pfiles:CDAxe/CDAxe 'name.choice'}'
  94.     signal List
  95.  else
  96.     signal List
  97. end
  98.  
  99. endofscript:
  100. exit
  101.  
  102. /* The End */
  103.